home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / tori / sharedi.cst / 03067_Script_3067 < prev    next >
Text File  |  1983-01-27  |  358b  |  14 lines
  1. on curfinleva
  2.   starttimer
  3.   global cursprite
  4.   set cursprite to ""
  5.   repeat with nr=1 to 48
  6.     set  var to  string(the cursor of sprite nr )
  7.     if offset (",",var) then put "_" into char offset(",",var) of var
  8.     put var into item nr of cursprite
  9.     set the cursor of sprite nr to -1
  10.   end repeat
  11.   updatestage
  12.   put "timer"&&the timer
  13. end
  14.